/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_04 / dump_progs / mainprogfn

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 4a f4 20 3e 20 | 4d 61 69 6e 50 72 6f 67 |..dJ. > |MainProg|
|00000010| 46 4e 20 20 20 20 20 20 | 3a 20 41 6e 20 65 78 61 |FN      |: An exa|
|00000020| 6d 70 6c 65 20 73 63 72 | 65 65 6e 20 64 75 6d 70 |mple scr|een dump|
|00000030| 20 75 73 69 6e 67 20 61 | 20 4c 49 42 52 41 52 59 | using a| LIBRARY|
|00000040| 20 46 75 6e 63 74 69 6f | 6e 2e 0d 00 6e 27 f4 20 | Functio|n...n'. |
|00000050| 42 41 53 49 43 20 76 65 | 72 73 69 6f 6e 20 32 2e |BASIC ve|rsion 2.|
|00000060| 30 20 3a 20 32 36 74 68 | 20 4f 63 74 20 31 39 38 |0 : 26th| Oct 198|
|00000070| 37 0d 00 78 29 f4 20 43 | 6f 70 79 72 69 67 68 74 |7..x). C|opyright|
|00000080| 20 20 20 20 20 20 20 20 | 20 3a 20 41 42 41 43 55 |        | : ABACU|
|00000090| 53 20 54 52 41 49 4e 49 | 4e 47 0d 00 82 05 3a 0d |S TRAINI|NG....:.|
|000000a0| 00 8c 05 3a 0d 00 96 05 | 3a 0d 00 a0 05 3a 0d 00 |...:....|:....:..|
|000000b0| aa 31 ee 20 85 3a d9 23 | 30 3a ef 34 2c 32 36 2c |.1. .:.#|0:.4,26,|
|000000c0| 31 32 3a ff 28 22 46 58 | 33 22 29 3a f6 3a f1 20 |12:.("FX|3"):.:. |
|000000d0| 22 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 3a fa 0d |" at lin|e ";.:..|
|000000e0| 00 b4 05 3a 0d 00 be 07 | eb 20 31 0d 00 c8 05 3a |...:....|. 1....:|
|000000f0| 0d 00 d2 05 3a 0d 00 dc | 3c 6d 61 72 67 69 6e 25 |....:...|<margin%|
|00000100| 20 20 20 3d 20 31 38 20 | 20 3a f4 20 54 68 65 20 |   = 18 | :. The |
|00000110| 6c 65 66 74 20 6d 61 72 | 67 69 6e 20 69 6e 20 74 |left mar|gin in t|
|00000120| 65 6e 74 68 73 20 6f 66 | 20 61 6e 20 69 6e 63 68 |enths of| an inch|
|00000130| 2e 0d 00 e6 41 74 68 72 | 65 73 68 6f 6c 64 25 3d |....Athr|eshold%=|
|00000140| 20 20 30 20 20 3a f4 20 | 54 68 65 20 6c 6f 67 69 |  0  :. |The logi|
|00000150| 63 61 6c 20 63 6f 6c 6f | 75 72 20 74 68 72 65 73 |cal colo|ur thres|
|00000160| 68 6f 6c 64 20 66 6f 72 | 20 70 72 69 6e 74 69 6e |hold for| printin|
|00000170| 67 2e 0d 00 f0 34 70 72 | 69 6e 74 6d 6f 64 65 25 |g....4pr|intmode%|
|00000180| 3d 20 20 35 20 20 3a f4 | 20 54 68 65 20 70 72 69 |=  5  :.| The pri|
|00000190| 6e 74 6d 6f 64 65 20 6d | 75 73 74 20 62 65 20 35 |ntmode m|ust be 5|
|000001a0| 20 6f 72 20 37 2e 0d 00 | fa 4a 64 75 6d 70 24 3d | or 7...|.Jdump$=|
|000001b0| 22 46 4e 6d 69 6e 69 64 | 75 6d 70 28 22 2b c3 28 |"FNminid|ump("+.(|
|000001c0| 6d 61 72 67 69 6e 25 29 | 2b 22 2c 22 2b c3 28 74 |margin%)|+","+.(t|
|000001d0| 68 72 65 73 68 6f 6c 64 | 25 29 2b 22 2c 22 2b c3 |hreshold|%)+","+.|
|000001e0| 28 70 72 69 6e 74 6d 6f | 64 65 25 29 2b 22 29 22 |(printmo|de%)+")"|
|000001f0| 0d 01 04 4c 64 75 6d 70 | 65 72 72 6f 72 24 3d 22 |...Ldump|error$="|
|00000200| 4f 4b 22 20 3a f4 20 49 | 66 20 70 61 72 61 6d 65 |OK" :. I|f parame|
|00000210| 74 65 72 73 20 61 72 65 | 20 6f 75 74 20 6f 66 20 |ters are| out of |
|00000220| 72 61 6e 67 65 20 74 68 | 65 6e 20 6d 65 73 73 61 |range th|en messa|
|00000230| 67 65 20 72 65 74 75 72 | 6e 65 64 2e 0d 01 0e 05 |ge retur|ned.....|
|00000240| 3a 0d 01 18 05 3a 0d 01 | 22 05 3a 0d 03 e8 2d f4 |:....:..|".:...-.|
|00000250| 20 54 68 65 20 66 75 6e | 63 74 69 6f 6e 20 63 61 | The fun|ction ca|
|00000260| 6e 20 68 61 76 65 20 61 | 6e 79 20 6c 69 6e 65 20 |n have a|ny line |
|00000270| 6e 75 6d 62 65 72 73 2e | 0d 03 f2 3d c8 9b 20 22 |numbers.|...=.. "|
|00000280| 24 2e 44 75 6d 70 50 72 | 6f 67 73 2e 4d 69 6e 69 |$.DumpPr|ogs.Mini|
|00000290| 44 75 6d 70 46 4e 22 20 | 20 3a f4 20 4c 6f 61 64 |DumpFN" | :. Load|
|000002a0| 20 74 68 65 20 46 4e 20 | 69 6e 74 6f 20 4c 49 42 | the FN |into LIB|
|000002b0| 52 41 52 59 2e 0d 03 fc | 22 f4 20 50 72 69 6e 74 |RARY....|". Print|
|000002c0| 20 61 20 22 56 44 55 20 | 63 6f 64 65 64 22 20 70 | a "VDU |coded" p|
|000002d0| 69 63 74 75 72 65 2e 0d | 04 06 1f 2a 50 52 49 4e |icture..|...*PRIN|
|000002e0| 54 20 24 2e 44 75 6d 70 | 50 72 6f 67 73 2e 70 69 |T $.Dump|Progs.pi|
|000002f0| 63 74 75 72 65 31 0d 04 | 10 05 3a 0d 04 1a 41 64 |cture1..|..:...Ad|
|00000300| 75 6d 70 65 72 72 6f 72 | 24 3d a0 28 64 75 6d 70 |umperror|$=.(dump|
|00000310| 24 29 20 3a f4 20 43 61 | 6c 6c 73 20 46 4e 6d 69 |$) :. Ca|lls FNmi|
|00000320| 6e 69 64 75 6d 70 20 61 | 6e 64 20 64 75 6d 70 73 |nidump a|nd dumps|
|00000330| 20 74 68 65 20 73 63 72 | 65 65 6e 2e 0d 04 24 05 | the scr|een...$.|
|00000340| 3a 0d 04 2e 46 f4 20 41 | 6e 20 65 72 72 6f 72 20 |:...F. A|n error |
|00000350| 6d 65 73 73 61 67 65 20 | 69 73 20 72 65 74 75 72 |message |is retur|
|00000360| 6e 65 64 20 69 66 20 74 | 68 65 20 70 61 72 61 6d |ned if t|he param|
|00000370| 65 74 65 72 73 20 61 72 | 65 20 6f 75 74 20 6f 66 |eters ar|e out of|
|00000380| 20 72 61 6e 67 65 2e 0d | 04 38 2f e7 20 64 75 6d | range..|.8/. dum|
|00000390| 70 65 72 72 6f 72 24 3c | 3e 22 4f 4b 22 20 8c 20 |perror$<|>"OK" . |
|000003a0| f1 20 22 45 72 72 6f 72 | 2c 20 22 3b 64 75 6d 70 |. "Error|, ";dump|
|000003b0| 65 72 72 6f 72 24 0d 04 | 42 05 3a 0d 04 4c 05 3a |error$..|B.:..L.:|
|000003c0| 0d 04 56 05 e0 0d ff    |                         |..V.... |        |
+--------+-------------------------+-------------------------+--------+--------+